Plotly

library(tidyverse)
library(p8105.datasets)
library(plotly)

bar plot

data("instacart")

instacart %>% 
  count(aisle) %>% 
  filter(n > 10000) %>% 
  mutate(aisle = fct_reorder(aisle, n)) %>% 
  
  plot_ly(x = ~aisle, y = ~n, color = ~aisle, type = "bar", colors = "viridis")

box plot

data("ny_noaa")

set.seed(2)
ny_noaa %>%
  drop_na() %>% 
  sample_n(2000) %>% 
  mutate(
    prcp = prcp/10,
    tmin = as.numeric(tmin)/10,
    tmax = as.numeric(tmax)/10,
    year = as.character(lubridate::year(date))
    ) %>% 
  filter(year %in% c("1981","2010")) %>% 
  
  plot_ly(x = ~tmin, y = ~tmax, color = ~year, colors = "Set2",  type = "scatter", mode = "markers", marker = list(size = ~prcp))

scatter plot

data("rest_inspec")

rest_inspec %>% 
  filter(boro %in% c("MANHATTAN","BRONX","BROOKLYN","QUEENS","STATEN ISLAND")) %>% 
  drop_na() %>% 
  mutate(text_label = str_c("Score: ", score, "\nDescription: ", cuisine_description)) %>% 
  
  plot_ly(y = ~score, type = "box", color = ~boro, text = ~text_label, alpha = 0.5)